home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / tex / sauter.zip / C-SIGMA.MF < prev    next >
Text File  |  1990-09-16  |  3KB  |  73 lines
  1. % Compute and pass to MetaFont the font parameters sigma 8 through sigma 22.
  2. % This is used by the math symbol fonts.
  3.  
  4. fontdimen 8:  % parameters $\sigma_8$ through $\sigma_{22}$ will now be listed
  5.  math_axis#+3.51rth#+
  6.     (if design_size <  9: (360)
  7.                     else: ((design_size*180)-1260)fi)/360pt#+
  8.     subs*desc_depth#,                                             % num1
  9.  
  10.  math_axis#+1.51rth#+
  11.     (if design_size <  6: ((design_size*60)-270)
  12.  elseif design_size <  7: ((design_size*30)-90)
  13.  elseif design_size <  9: (-(design_size*design_size*30) +
  14.                            (design_size*570) - 2400)
  15.                     else: (300)fi)/360pt#,                        % num2
  16.  
  17.  math_axis#+1.51rth#+
  18.     (if design_size <  7: ((design_size*50)-10)
  19.  elseif design_size <  8: ((design_size*40)+60)
  20.                     else: ((design_size*50)-20)fi)/360pt#,        % num3
  21.  
  22.  -(math_axis#-3.51rth#-subs*fig_height#+
  23.     (if design_size <  6: (-(design_size*110)-80)
  24.  elseif design_size <  8: (-(design_size*120)-20)
  25.                     else: (-(design_size*130)+60)fi)/360pt#),     % denom1
  26.  
  27.  -(math_axis#-1.51rth#-subs*fig_height#-
  28.     (if design_size <  6: ((design_size*60)-270)
  29.  elseif design_size <  7: ((design_size*30)-90)
  30.  elseif design_size <  9: (-(design_size*design_size*30) +
  31.                            (design_size*570) - 2400)
  32.                     else: (300)fi)/360pt#),                       % denom2
  33.  
  34.    ((if design_size <  8: ((design_size*50)+349)
  35.  elseif design_size <  9: ((design_size*100)-51)
  36.                     else: ((design_size*50)+399)fi)/100pt#) -
  37.     subs*asc_height#,                                             % sup1
  38.  
  39.    ((if design_size <  8: ((design_size*50)+299)
  40.  elseif design_size <  9: ((design_size*100)-101)
  41.                     else: ((design_size*50)+349)fi)/100pt#) -
  42.     subs*asc_height#,                                             % sup2
  43.  
  44.     (if design_size <  6: ((design_size*90)+80)
  45.  elseif design_size <  8: ((design_size*100)+20)
  46.                     else: ((design_size*110)-60)fi)/360pt#,       % sup3
  47.  
  48.     (if design_size <  9: (360)
  49.                     else: ((design_size*180)-1260)fi)/360pt#,     % sub1
  50.  
  51.     (if design_size <  9: (72/36pt#)
  52.                     else: -((((design_size*50)+349)/100pt#) -
  53.     2subs*asc_height#-3.1rth#)fi),                                % sub2
  54.  
  55.  subs*asc_height#-36/36pt#,                                       % sup\_drop
  56.  
  57.  180/360pt#,                                                      % sub\_drop
  58.  
  59.     (if design_size <  6: ((design_size*20)-1)
  60.  elseif design_size <  8: (119)
  61.  elseif design_size <  9: ((design_size*120)-841)
  62.  elseif design_size < 10: (239)
  63.                     else: ((design_size*25)-11)fi)/10pt#,         % delim1
  64.  
  65.     (if design_size <  6: ((design_size*10)+21)
  66.  elseif design_size <  7: (81)
  67.  elseif design_size <  8: ((design_size*10)+11)
  68.  elseif design_size <  9: (91)
  69.  elseif design_size < 10: ((design_size*10)+1)
  70.                     else: ((design_size*5)+51)fi)/10pt#,          % delim2
  71.  
  72.  math_axis#;                                                      % axis\_height
  73.